home *** CD-ROM | disk | FTP | other *** search
/ Macromedia Multimedia Showcase 6.0 / Macromedia Multimedia Showcase v6.0 WIN-MAC (XMSH60CD)(Macromedia, Inc.)(1996).iso / pc / demosoft / freehand / data.5 / App / Usenglsh / lang8.dll / POST / 1150 < prev    next >
Text File  |  1996-10-03  |  665b  |  40 lines
  1. supdict begin
  2. /getwidth 
  3. { xsize ysize ge
  4. { xsize } { ysize } ifelse .05 mul } def
  5. /brickloop
  6. { ystart ysize ystart abs
  7. { /ycur xdf  
  8. xstart ycur m
  9. xstart abs ycur L stroke
  10. xstart xsize xstart abs  
  11. { cnt 1 and 0 eq  
  12. { /xcur xdf }
  13. { /xcur exch xsize .5 mul add def } ifelse
  14. xcur ycur m
  15. xcur ycur ysize add L stroke
  16. } for
  17. incrcnt
  18. } for } def
  19. end  
  20. /bricks  
  21. {
  22. supdict begin  
  23. q newinside 
  24. /color xdf
  25. colorchoice 
  26. /color xdf 
  27. /angle xdf 
  28. /ysize xdf 
  29. /xsize xdf
  30. /xstart x1 x2 add 2 div neg def 
  31. /ystart y1 y2 add 2 div neg def 
  32. dx 2 div dy 2 div translate
  33. angle rotate
  34. backgnd 
  35. colorchoice 
  36. getwidth w
  37. brickloop  
  38. Q end
  39. } def